home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).do / QUIZ MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  22 lines
  1. 10  REM - QUIZ MENU PROGRAM
  2. 20  REM - BY SANDY SMITH
  3. 30  REM - A SIMPLE 'BOOT' PROGRAM
  4. 40  REM - FOR THE COLLECTION OF
  5. 50  REM - QUIZ PROGRAMS
  6. 60  REM - DONATED TO SOFTDISK
  7. 70  REM - 'QUIZ MAKER' AND            'QUIZZER'
  8. 80  REM - CAN BE RUN WITHOUT
  9. 90  REM - THIS PROGRAM
  10. 95  REM -------------------------
  11. 100 D$ =  CHR$(4):G$ =  CHR$(7)
  12. 110  TEXT : HOME : VTAB 2: HTAB 14: PRINT "-- QUIZ MENU --": PRINT : PRINT 
  13. 120  HTAB 5: PRINT "1. MAKE A QUIZ": PRINT : HTAB 5: PRINT "2. TAKE A QUIZ": PRINT : HTAB 5: PRINT "3. ABOUT AMERICAN AVERAGES QUIZ": PRINT 
  14. 125  HTAB 5: PRINT "4. ABOUT ELEGANT EATING QUIZ": PRINT : HTAB 5: PRINT "5. ABOUT PIQUANT PEOPLE QUIZ": PRINT : HTAB 5: PRINT "6. EXIT THIS PROGRAM"
  15. 130  VTAB 18: CALL  -868: HTAB 14: INPUT "WHICH? ";A$:A =  VAL(A$): IF A <1  OR A >6  THEN 130
  16. 140  IF A = 6  THEN  END 
  17. 150  IF A = 1  THEN  PRINT D$;"RUN QUIZ MAKER"
  18. 160  IF A = 2  THEN  PRINT D$;"RUN QUIZZER"
  19. 170  IF A = 3  THEN  PRINT D$;"BLOAD ABOUT AMERICAN AVERAGES": GOTO 200
  20. 180  IF A = 4  THEN  PRINT D$;"BLOAD ABOUT ELEGANT EATING": GOTO 200
  21. 190  IF A = 5  THEN  PRINT D$;"BLOAD ABOUT PIQUANT PEOPLE"
  22. 200  VTAB 24: HTAB 5: PRINT "PRESS ANY KEY TO CONTINUE...";: GET A$: GOTO 110